Amiga Plus Leser 19/Amiga Plus Leser CD 19.iso/Tools/Freeware/PerfectPaint/rexx/Border/Script&Picture/Old2.brx

Text File | 2002-10-15 | 1KB | 92 lines

/* Ellipse Border */

    options results
    parse ARG Port b

    ADDRESS value Port

    pp_Progresstext 'Border'

    pp_GetWidth
    W=result
    pp_GetHeight
    H=result
    pp_ClosestColor 255 255 255
    White=result
    pp_ClosestColor 0 0 0
    Black=result

    pp_StencilOff
    pp_EffectOff
    pp_SpareOnOff
    pp_ComposeReqOff
    pp_Compose 0 100 0
    pp_SetApen Black
    pp_SetBpen White
    pp_Cls

    pp_PenType 2
    pp_PenSize 7

    x1=9
    y1=9
    x2=W-10
    y2=H-10

    xb=trunc(((abs(x1-x2)+1)*20)/100)
    yb=trunc(((abs(y1-y2)+1)*20)/100)
    ab=xb
    if xb>yb then
    do
        ab=yb
    end
    ac=trunc(ab/2)
    pp_STARTpoly
    pp_ADDpoly x1 y1
    pp_ADDpoly x1+ac y1
    pp_ADDpoly x1+ac y1+ab
    pp_ADDpoly x1 y1+ab
    pp_ADDpoly x1 y2-ab
    pp_ADDpoly x1+ac y2-ab
    pp_ADDpoly x1+ac y2
    pp_ADDpoly x1 y2
    pp_ADDpoly x1 y2-ac
    pp_ADDpoly x1+ab y2-ac
    pp_ADDpoly x1+ab y2
    pp_ADDpoly x2-ab y2
    pp_ADDpoly x2-ab y2-ac
    pp_ADDpoly x2 y2-ac
    pp_ADDpoly x2 y2
    pp_ADDpoly x2-ac y2
    pp_ADDpoly x2-ac y2-ab
    pp_ADDpoly x2 y2-ab
    pp_ADDpoly x2 y1+ab
    pp_ADDpoly x2-ac y1+ab
    pp_ADDpoly x2-ac y1
    pp_ADDpoly x2 y1
    pp_ADDpoly x2 y1+ac
    pp_ADDpoly x2-ab y1+ac
    pp_ADDpoly x2-ab y1
    pp_ADDpoly x1+ab y1
    pp_ADDpoly x1+ab y1+ac
    pp_ADDpoly x1 y1+ac
    pp_ADDpoly x1 y1
    pp_ENDpoly

    pp_EffectOn
    pp_GaussianBlur 20
    pp_BoxF 0 0 W-1 H-1
    pp_EffectOff
    pp_Adjustlevels 193 220

    pp_SparetoStencil
    pp_InvStencil


    EXIT